SIGNALS 


ALLAN THOMAS sends irom New Zealand the latest issue (no.5) of 
PC 1500 USER. It contains 'Pontoon', an Adventure game, and some 
utilities in machine-code. The group now has 13 members. 


A splendid publication. Best of luck. 


JOHN WARNER notes that his prize will be "carefully selected for 
cheapness, uselessness, and grotesque design". (see MINDBOGGLE last 


month). He says that he confidently expects a signed photograph 
of the editor. 


No comment. The editor is - for once - speechless. 


ARTHUR COX points out that if a line ends with a quotation mark, this 
may be omitted without harm, thus saving space. 


This could occasionally be useful. But it leads to messy, 
inconsistent programming. How for instance would you distinguish 
between GOTO "" and GOTO™ ? 


ARTHUR COX persists that the technique can be useful. He adds 
irrelevantly that he never has a line with nothing in it. 


The editor, who is equally obstinate, maintains that this sort of 

sloppy programming makes editing difficult. It adds, for instance, 

to the problems involved in Variable Changing (see PEEK & POKE). He 
notices that Mr COX does not omit the fullstop at the end of a 
sentence, even when this ends a paragraph. We have been strictly 
taught to read and write, but as far as programming is concerned, we 
are self-educated. We have the awkward task of trying to maintain and 
create standards, not destroy them. 


|.SMITH expresses his sympathy with the plight described on page 21, 
but believes that I may be mistaken about the cause of the trouble. He 
points out that the PC 1500 will run without any batteries at all 

while it is attached to the CE 150. 


This invalidates my suggestion that the batteries might have enough 
power to drive other peripherals, but not the CE 158 /printer. 

But the difficulty occurred while the PC 1500 was attached directly 
to the CE 158; and exhaustive tests, many more than were briefly 
described, proved conclusively that low batteries in the computer 
caused the trouble. There could of course have been contributory 
factors, such as the charge of the CE 158 for instance. But with 

the set-up I was working with, I could not get the printer to print 
with the old batteries in the computer; and with new batteries 
everything worked OK. Your suggestion that one should occasionally ‘roll’ 
the batteries in the computer, to break up the formation of any film 
of contamination, is a useful hint. 


R.WILLIAMES asks whether the substitution of a 4Mhz crystal in the 
computer upsets the CE 158? 


Probably. Its all a magical electronic mystery to me. Has any reader 
dared to experiment along these lines? 


CHIA PIA LON writes from Malaysia to ask about POKEing machine-coce 
routines into memory locations. Wnat happens if one POKEs into ROM, 
or into an address with which one should not interfere? 


You cannot POKE into ROM. This stands for ‘READ-ONLY MEMORY" and 
means what it says. If you POKE into a wrong address in RAM you will 
do no permanent damage, but obviously you can destroy your program or 
data if you POKE into pointers or buffers. At the worst, you may 

create an endless loop, even temporarily disabling the ON/BREAK key. 
You may have to RESET: you might only be able to turn the computer off 
by taking the batteries out; and owing to the non-volatile memory, 

it can take quite a few minutes before they should be put back. 
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LET'S WRITE A PROGRAM - IV 


If you have deen diligently reading this series, you have been wasting 
your time. It is necessary to work through it: draw up your own scheme 
of attack, if you don't like mine: try writing a few lines of program. 
Perhaps this may come more easily when the series is further advanced. 


But I promised that this month we would start coding. So here we go 
with section 3, as suggested. Lets actually START! 


3000: INPUT "HOW MANY PLAYERS' 
3010: FOR F=1 TOH 


3020: INPUT "name?";A$(F): INPUT"capital?";A(F): B=B+A(F) §B is bank's capital 


3030: NEXT F 
3040: INPUT “alter banks capital to: ";B §if not to equal total 
of players' capital. 
So lets just RUN this section. And almost immediately: 
ERROR € IN 3020 


We have gone wrong right from the start. We cannot use DIMensioned 
variables until we have DiMensioned them. So we will do so - 
provisionally. Changes can me made later, if required. 


1000: DIM A$(7), A(3,7) §more than suggested originally 


We are taking 7 as the maximum number of players, for the moment. The 
game would be too slow with more. An alternative would be to DiMension 
only for the actual number of players: but then suppose someone wants 

to join in later? Lets try this first. 


Now to choose the winning number, before bets are actually placed. 
5000: PAUSE "PLACE YOUR BETS!" 


§This is not section (d),'Spinning the Wheel'. Remember we said we would 
secretly choose the winning number before betting starts. 


5010: FOR F=1 TO RND 37:READ W: NEXT F 
60000: DATA 0,1,2,3,-..17,18 
60010: DATA 19,20,214.04.35,36 


Why not just pick a random number: W=RND 37-1? Two reasons: firstly, 
we may wish to change the DATA to the order numbers appear on the 
wheel: secondly, we might want 2 zeros, as in some casinos in USA. 

Note that we are putting the DATA at the end. The idea of DATA at the 
start of the program dates from the early days of computers, before 
INPUT was invented, and velues could only be inserted by altering DATA 
in the program. Also in most computers the start of the program is 
easiest to access. With the PC 1500, it is equally easy to 

access either end of the program. 


At this point, looking back, change line 3000: INPUT "HOW MANY PLAYERS?"3H 


to 3000: INPUT "how many players?"sH. If we keep all INPUTs in lowercase, 
and all other displays in capitals, it is more consistent: and this 

can be mildly helpful. Also, leave a space after the INPUT promot. It 
makes whatever is INPUT separate, and easier to read. 


We have not got very far. But we must tidy up a little before going 
further. Remember we said "Clear alphabetic labels"? So lets put them 
in. Lowercase will stand out best here. 


: “initialise" DIM, 
: "players" INPUT. 
"stakes" PAUSE 
: "wheel" DATA .. 


One last tas< this month: make a chart of the variables you have used, 
and what you have used them for, and whether global or local - 

ise. whether you can use the same variable again for another purpose, or 
whether you would destroy essential data by doing so. Next month 
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CRICKET SCORING by J.R.Herring 


[This program provides a much more detailed analysis of a match than 
does an ordinary scorecard. A number of questions are asked at the 
beginning, and after each ball is bowled It is essential to answer 
each question. The CE 150 is required. The detailed account which is 
printed out makes following a match, whether at the ground, or over 
the radio, even more enjoyable. ] 


200 "C":CLEAR :LF 2:LOCK :CSIZE 2 
202 LPRINT "Cricket Scoring" 

204 REM J.R.Herring..September 1982 

206 DIM BS(12)*10,F $(12)*10,F (12) ,W(12) ,L$(12)*30,L(12) ,M(12),0(12) 


STATUS l= 5287 


208 “AAM:INPUT "TYPE SIZE.1'OR 2..."5 

210 IF (C=1}+(C=2)<>160T0 "AA" 

212 CSIZE C 

214 “BB":INPUT “COLOUR. .0,1,2,3 -- 

216 IF (C=1)+(C=2)+(C=3)+(C20}O1G0T0 "BB" 
218 COLOR C 

220 INPUT “HOME TEAM. 

222 INPUT "VISITORS. .-*; 


224 LPRINT H$;" v "3V$ 


226 "CC":INPUT "WHICH TEAM TO BAT H/V2";WS 
228 He (WS="U")<>1GOTO "CC" 

230 

232 "HULET B§(O)=HS 


234 
236 N=L:WK: 
238 LPRINT 8§(0);" WILL BAT" 

240 A=1000:02=200 

242 LF 1:LPRINT "How many runs do” 

244 LPRINT “they need? If not":LPRINT “batting lest ENTER" 

266 INPUT "RUNS NEEDED TO WIN. "5: 

248 LF 1:1F ACLOOOLPRINT “RUNS NEEDED";A 

249 USING "###.##": INPUT "Limited Over? How nany?";DZ: IF DZ<200LPRINT A/DZ;" runs per over. 
250 LF 1:USING 

252 INPUT "BATSMAN NO. 1 ";B$(1):GOSUB “DO":GOSUB “EE":GOTO "FF" 

254 $= (1) :NS=B$(2) 

256 
258 
260 INPUT "FIELDING 
262 INPUT “FIELDING 
264 INPUT "FIELDING 
266 INPUT “FIELDING 
268 INPUT "FIELDING 
270 INPUT "FIELDING 
272 INPUT "FIELDING 
274 INPUT "FIELDING TEAM,No.10  *3F$(10) 
276 INPUT "FIELDING TEAM,No.21 —"3F§(11) 
278 INPUT “THELFTH MAN” "3F$(12) 

280 
282 INPUT "START BOWLING Y/N 
284 
286 
288 
290 "GG" sINPUT "Bt 
292 IF M<1GOTO "GG" 
294 IF w>12G0TO "Gr 
296 LF L:LPRINT "BOWLER IS NUMBER";M;" ";F$(M)=:V=V+l:F=F(M) 
298 LPRINT "OVER NO.";V 

300 "39" :Re0 

302 ON ERROR GOTO "II" 


LET B$(O)=V$ 


304 "II":X=0: INPUT "Ist. Runs,NB,WD,LB,B,WK ";A$:GOTO "JR" 
306 GOTO 
308 "aR" 2£720:G0SUB "DI" :IF ET=2G0T0 " 


310 GOSUB A$:ON ERROR GOTO "II" 
312 IF G=1G0T0 "JJ" 


314 R=0:0N ERROR GOTO "KK" 
316 GOTO "LL" 

318" INPUT "2nd. Runs,NB,WD,LB,B,WK ";A$:GOTO 
320 GO’ 

322 "J ET=0:GOSUB "DJ":IF ET=1G0TO " 


326 IF G=1GOTO "Kk" 


328 R=0:0N ERROR GOTO “MH” 
330 IF T>=AGOTO "LL" 

332 "MM":X=0: INPUT "3rd. Runs,NB,WD,LB,B,WK ";A$:GOTO "JT" 
334 GOTO " 

336 "I :€T=0:GOSUB "DI":IF ET=1GOTO " 


338 GOSUB A$:0N ERROR GOTO 
340 IF G=1G0TO "mI" 
342 R0:0N ERROR GOTO "NN" 
344 IF T>=AGOTO "LL" 
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[ORICKET SCORING centinued 


346 “NN':X=0: INPUT "4th. Runs,NB,WD,LB,B,WK "A$:GOTO "JU" 
348 

350 '20:G0SUB "DJ":IF ET=1GOTO "NN" 

352 R GOTO "NN" 

354 

356 IN ERROR GOTO "OO" 


358 IF T>=AGOTO "LL" 
360 INPUT "Sth. Runs,NB,WD,LB,B,WK ";A$:GOTO "JV" 
362 

364 5:E1=0:GOSUB "DJ": IF ET=1G0TO "00" 
366 GOSUB A$:ON ERROR GOTO "oO" 


368 160T0 "00" 
370 R=0:0N ERROR GOTO "PP" 

372 IF T>=AGOTO 571 

374 INPUT "6th. Runs,NB,WD,LB,B,WK "3A$:GOTO "Ji" 


376 
378 
320 
382 
384 
386 IF T>=AGOTO "LL" 

388 LPRINT “End of over no. 
389 LPRINT TIME 

390 LPRINT “Total from over "5X:UsT 
391 USING "###.¢8":LPRINT "Run rate =' 
392 LF 1:USING 

394 \(M)+(F=F (M)) :D(M)=D(M)+K:GOSUB "QQ" 

396 GOTO “RR” 

398 "QQ"LPRINT F$(M);D(M);" overs:";M(M);" maidens:";F(M);" runs:";W(M);" wickets." 
400 RETURN 

402 "RR":LPRINT B§(0);T5" for";WT;" wickets" 

404 LPRINT "EXTRAS" ;E 
406 LPRINT S$;" not out";! 
408 LPRINT NS:" not out";¥:IF T>=AGOTO "LL" 
410 GOSUB “EX":IF V=DZ:GOTO "ZX" 

411 COTO "cc" 

412 "DF" :LPRINT "*** ALL QUT *#* 

414 LPRINT B$(0);" a1] out for ";T:GOTO "s: 
415 "ZX"LPRINT B§(0);" overs completed for’ 
le "D" 

418 "LL 
420 "TT"2M(M)=H(M)-+(F2F (M)):D(H)=0(h)+K:GOSUB "GQ" 
422 INPUT "Did last ball dismiss?";W$ 

424 IF WS="Y"COTO "uu" 

426 L$(P)=NS+" not out":L(P)=¥:P=P+1:GOTO "DH" 
428 "UU":GOSUB "EX" 

430 "DH" :L$(P)=5$+" not out":L(P)=S:P=P+1 

432 GoTo "wv" 

434 "DD" :LPRINT "BAT No."';N5"-."3B$(N)=RETURN 
436 "SS":Z$=" not out" 

438. L$(P)=NS+Z2$2L(P)=1 
4b GoTo "vv" 

442 
rrr 
466 
448 


Ga 
2G=0:K=1:E1=0:GOSUB "DJ":IF ET=1G0TO "PP" 
‘AS:0N ERROR GOTO "PP" 

GOTO “PP 


3VX=T-UzON ERROR GOTO 0 


T/;" an over": IF ACLODOLPRINT "Rate req."3(A-T)/(DZ-V) 


Pel 


SsBSC) GOS —Ur SHE TINN 
(CM) =F (MR: :GOSUB "X": RETURN 
(MDF (MR: 


450 (MSF CM) aR 

452 (MSF (M48 

454 (NaF (M)aRe 

456 (M)=F(M)4RE 

458 INPUT "Number of runs?";R:IF X=]LET R=0:S=S+R:F (M)=F(M)+R:T=T+R:GOSLB "S":GOSUB “X" RETURN 
460 

462 RETURN 


464 
486 
468 
470 LPRINT A$;R:GOTO 
472 "Wal" :LPRINT " " 


=NS:N$=D$:D=5:5=¥: 
"WD" )+(AS="B")2(AS=' 


TURN 


")4(AS="WK")<>1G0TO "Wi" 


474 {ETURN 
476 INPUT "Did batsmen cross? Y/N ";WS 
478 IF WS="Y"GCSUB "EX" 


480 RETURN 
482 "NB": INPUT "How many runs from bat?";R:IF R>OGOTO "ZZ" 
484 T2T+] :E=E+]:NB=NB+1:R=1:GOTO "DE" 

486 
488 
490 
492 
494 
496 


COSUB "S":GOSUB "X' 
UB "S":GOSUB 
GOSUB "x" RETURN 
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[CRICKET SCORING continued 


498 "WK": INPUT “Was it from a NO BALL Y/N";WS:WT=WT+l 
500 IF WS="¥"COSUB "NB" 

502 INPUT "Was it 9 RUN-OUT?.V/N";WS:IF WS="H"LET W(M)=Ww(M)+1 
504 IF R>OGOSUB "RY 

506 INPUT "How OUT 722";Z$ 

308 INPUT ‘Was it strikers micket?*WS 

510 IF W$z"N"GOSUB " 

512 L(P) 
514 LE(P)=S$e" "42S 

SUE LEBINTILS (FILLE YPSSE 


RETURN 
528 “W":LPRINT B$(0);" Innings":Q=P 
530 FOR P2070 Q 
532 LPRINT L$(P)5L(P) 

534 NEXT P. 

536 LF 1:LPRINT "NB" NB 

538 LPRINT "WO" 

540 LPRINT "LB";LB 

542 LPRINT "B36 

544 LPRINT "EXTRAS" ;E 

546 FOR Mz170 11 

548 IF _0(H)=000T0 "OG" 

550 SosuB_" 

352 "DG*NEXT 


END 
386 “OM ET=00TF (A$="1" 4 (AS="2" )4(A$="3")C>1G0TO "DK" 
TURN 
360 NDKN GIF (AS="4™)4(AS="5")6(AS="6")CO1GOTO "OLY 
564 “DL":IF (A$="0")+(A$="B")+(A$="LB")<>1GOTI "DH" 
166 RETURN 
368 (DILIF (AS=PNB")o(AS="AC™)+(ASSHD")COIGITO “DW” 


PEEK POKE & MEMORY - XIV 
~ the variable theme continued - 


The routine below is a slight elaboration of the ideas discussed last 
month (page 23). It was used to transform ‘CRICKET SCORING’ in this 
issue. Variable I was changed to C, and O to D, since the typeface used 
does not distinguish between letter 0 and number 0. 


600: x is flag for inverted commas. Q is flag for REM (which might 
include quotes) and overides x. 

615: G reproduces line number being dealt with. 

620: flags Q and X reset at start of each line, 

630: flag Q is set by REM. 

640: flag X set and reset by inverted commas. PEEK (F-1) checks for 
Reserved Words, which of course must not be altered. 

650 and 660: POKE C for I and D for 0, and LPRINT line number 
where change occurs. 


2 0 
=! TATUS 2-STATUS 1+3T0 STATUS 2-291 


615 PEEK F=13LET G=256*PEEK (F+1)+PEEK (F+2) 
620 PEEK F=13LET X=1:Q=1 

630 PEEK F=171AND PEEK (F-1 

640 PEEK F=34LET X=-X:GOTO 700 

645 


(PEEK F=730R PEEK F=79)AND PEEK (F-1)>221GOTO 700 
Q*X=1AND PEEK SPOKE F,67:BEEP R. 

660 Q*X=1AND PEEK SPOKE F,68:BEEP 
700 NEXT F:BEEP 7 
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USER FRIENDLINESS 


Users are awkward creatures . The help you offer them is either ignored, 
or resented. Take ERROR messages, for instance. The statement: 


INVALID PARAMETER XJK6B 


is hardly likely to be greeted with cries of joyous enlightenment. 
On the other hand, the friendlier: 


SILLY ME! 

PRESSED THE WRONG KEY! 
DONT COMPLAIN 

BUT TRY AGAIN! 


may well be found tedious on this side of the Atlantic. Equally 
the simple and accurate expression: 


IDIOT! 


is likely to be found unhelpful. One solution emerges from the rigid use of 
Menus. A main menu offers a choice of secondary menus, for the several 
functions of the program: and each of these may have tertiary menus 
appended. A choice is indicated on the display: the user merely has to press 
the key beneath the function he selects. There is of course always a key 
which returns to the main menu. This is very much the professional approach, 
as exemplified in the very successful EASI- software. The program is a 
"black box! and is not accessible to the user, who is not expected to 
possess any ability to program. This approach is recognised as ‘user 
friendly’. 1 em perhaps eccentric in considering ‘Big Brotherly! would be 

a better description. 


In less skilful hands the system can be disastrous. The wretched user is 
Jost in a labyrinth of menus: whatever he does, he arrives at a dead end. 
This may be because he is trying to use the functions of the program in a 
sequence which was not envisaged by the author. Of course, the user has not 
read the instructions, or if he Fas read them, he has not understood them. 
At the best, he has read the instructions, understood them, and Zorgotten 
them. Take an example. Supposing the user tries to print out the results of 
a function of the program before he has actually run that function. An 
arrogant programmer will say "No one in their senses would do that!" 
(ignoring the fact that by now even the most intelligent user is probably 
senseless, anyway). A friendlier programmer will be willing to admit that 
there could be a reason. The user might wish to inspect the format of the 
printout; he might wish to assure himself that no residue remains from the 
previous run. But the really professional programmer will construct his 
program in such a way that it will not fail, even if used in a sequence 
bee he had not imagined. This takes hard and careful work, and patience, 
and skill. 


My own preference is for programs which are command-driven. Instead of a 
tree of menus, the appropriate command will initiate any function from any 
place in the program. This of course requires the user to learn 2 number - 

perhaps a large number - of commands: the idea is not universally popular. 

But it does lead to the sort of program which is not impossible for the user 
to tinker with, and adapt to his own particular needs. 


Because it all depends on what sort of user you are trying to be friendly 
to. Whether you are writing for an impatient business user, who wants 
results, quickly and without fuss - or for the amateur who may be more 
interested in the method than in the end-product: he may even not wish to 
use the whole program, but just to lift part of it to incorporate in a 
program of his own. ; 


Nor must the most important consideration be forgotten: is your program 
actually of any use to anyone? I receive some very clever programs, which 
have every facility, and cover every eventuality: and the outcome is that 
their results could be got far more quickly and more easily by hand. Tt 

would be technically possible to program the PC 1500 and CE 150 to produce 
striped wallpaper. A superior programmer will allow the user to produce his 
own pattern - checks, or squiggles, or pretty pink roses. You and I are even 
more friendly to the common user, and will write something more worthwhile. 
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MINDBOGGLE CORNER 


Are you handy with a soldering iron? I'm not. SHARP's EA158C parallel 
lead which connects printer to interface is extremely short, and will not 
reach to, the front of the printer. So less than confidently I decided 

to make up an extension lead. Although all were not necessary, 

I decided to use all 25 pins at each end: the lead would then 

be usable with any other arrangement. When the soldering was done, 

I connected up, and keyed out the usual deathless prose. 


You may imagine my complacency when I heard the printer happily 
chattering away. You may also imagine my horror when I saw the result: 


THG SWKCK CSOWO GOX KWOPGD OWGS THG LC[[ DOG 


But a moment's reflection showed the source of the trouble, and it 
only took a few moments more to put it right. Can you do as well? 
Answers on postcards, please, by June 30th. Prize: state your 
preference from a) second-hand soldering iron, or b) second-hand 
German dictionary (see page 38 ) or c) neither. 


The answer to the April problem doubtless eluded few of you. The 
missing word is of course ‘TIME’ and the occasion was the annual 
introduction of Summer Time. 

Apologies to DAVID RIHOY, whose answer to 
the March Mindboggler I had misunderstood. He has filled in the details 
with the routine on the left. It is in 2 parts: one for saving, and 
one for reloading. My own not dissimilar solution to this genuine 
problem is on the right. The locations 16586, etc., are for 
_unexpanded memory. 16586 is equivalent to STATUS 2-STATUS 1+5. The 
routine .goes at the head of the program it is to control. When first 
RUNning the program, answer the DIM? and LEN*? prompts. After reloading, 
RUN, and just reply to the DIM? prompt by pressing the ENTER key. 
The previous DiMensions will be restored, together with the contents of 
the DIMensioned variables. 


10: "S"CLEAR :P1=0 : REM ABCD 
Dl=5 5: ON ERROR GOTO 30 
20: DIM T$(D1)*S1: 10: X=-1: INPUT DIM?";X: 
PL=PEEK 30873: INPUT "LEN*?";Y 
EEK 30874 20: DIM A$(X)*¥: POKE 
30: B=B1*256+P2: T$ 16586, PEEK 30823, 
=" TESTING PEEK 30824, PEEK 30873, 
CSAVE/CLOAD IN PEEK 30874 
A PROGRAM 30: POKE 30873, PEEK 16588, 
40: CSAVE MYDATA; PEEK 16589 
B, 24576: END 
manually: 
50: "L"CLEAR: 
CLOAD M"DATA™ CSAVE M 16581, 18431 
60: POKE 30873,95, reloading: 


226: A=Pl: B=P2 
70: POKE 30873,A,8 
80: PRINT T$(1): END 


NEW 

CLOAD M 16581 

POKE 16581,0 

POKE 30823, PEEK 16586, PEEK 16587 


DAVID RIHOY points out that the ability to CSAVE M and to CLOAD M from 
within a program is an unexpected and very useful facility. 
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